home *** CD-ROM | disk | FTP | other *** search
/ Power Publisher 1 / Power Publisher.iso / Powertext / Redist / SP5I386.EXE / pscript.dll / 259 / 5 < prev    next >
Encoding:
Text File  |  1999-04-29  |  413 b   |  5 lines
  1. /nl{currentpoint exch pop 100 exch 10 sub moveto}def errordict begin
  2. /handleerror{showpage 100 720 moveto/Courier-Bold findfont 10 scalefont setfont
  3. (ERROR: )show errordict begin $error begin errorname =string cvs show nl(OFFENDING COMMAND: )show/command load =string cvs show nl nl(OPERAND STACK: )show $error/ostack known{ostack aload length{=string cvs nl show}repeat}if end
  4. end showpage stop}bind def end
  5.